home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / hardware / joytest.lha / joytest.b next >
Encoding:
Text File  |  1994-11-30  |  531 b   |  26 lines
  1. start:
  2.  locate 1,1
  3.  x=2
  4.  PRINT "Joy"x":                                             "
  5.  IF STRIG(x+1)<> 0 THEN
  6.   locate 1+x ,8 : PRINT "Feuer            "
  7.  ELSE
  8.   locate 1+x ,8 : PRINT "Feuer nicht gedr."
  9.  END IF
  10.  
  11.  locate 1+x ,35
  12.  st1=stick(x)
  13.  st2=stick(x+1)
  14.  IF ST1=-1 THEN PRINT "links  ";
  15.  IF ST1= 1 THEN PRINT "rechts ";
  16.  if st1= 0 Then print "       ";
  17.  if st2= 0 Then print "       "
  18.  IF ST2=-1 THEN PRINT "unten  "
  19.  IF ST2= 1 THEN PRINT "oben   "
  20.  
  21.  locate 1,1
  22.  rem FOR t=1 TO 50:NEXT
  23.  if mouse (0)=-1 then end
  24.  GOTO start
  25.  
  26.